Option Explicit
Sub Q_Sample042()
    ']wޥζ Windows Script Host Object Model
    Dim myWsh  As IWshRuntimeLibrary.WshShell
    Dim myExec As IWshRuntimeLibrary.WshExec
    Set myWsh = CreateObject("Wscript.Shell")
    Set myExec = myWsh.Exec("Notepad")			'nҰʪε{
    Do Until myExec.Status = WshFinished
        DoEvents
    Loop
    MsgBox "OƥwgQC"
    Set myExec = Nothing					'
    Set myWsh = Nothing
End Sub
